home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / patch / ETW-CD12p.lha / Update-ETW < prev    next >
Text File  |  1998-12-30  |  8KB  |  288 lines
  1. ; ETW Installer Utility
  2. ;
  3. ; Written by Gabriele Greco
  4. ; for Eat The Whistle France 98
  5. ;
  6. ; Copyright © 1998 Hurricane Studios/Epic Marketing
  7. ;
  8.  
  9. (
  10.    ;================================================================
  11.    ; Setup
  12.    ;================================================================
  13.  
  14.    ; script variables...
  15.  
  16.    (set programname "ETW-France98")           ; name of program
  17.    (set drawername "ETW")               ; name of drawer to make for program
  18.    (set cd_name "EatTheWhistle-CD:")          ; install disk name
  19.    (set bytesreq "300kb")                    ; HD space required
  20.  
  21.    ; system information...
  22.  
  23.    (set osver (/ (getversion) 65536))        ; os version
  24.    (set cputype (database "cpu"))            ; cpu type
  25.  
  26.    (set initialdir @default-dest)            ; defaults to biggest drive
  27.  
  28.    ;-------------------
  29.    ; Ask where to install it...
  30.  
  31.    (message "Welcome to Eat The Whistle 1.2!\n\n"
  32.         "This new patch includes new features and some bugfix, "
  33.         "look at history.doc to see what's new.\n\n"
  34.         "Please visit <http://surf.to/etw> to get a lot of intresting "
  35.         "Eat The Whistle files!\n"
  36.    )
  37.  
  38.    (set wheredir
  39.       (askdir
  40.          (prompt "Select a directory where you would like to place the "
  41.          "updated binaries... (About 300kbytes required if you install only the binaries)")
  42.          (help "If you have installed ETW to HD you can install the patch "
  43.                "over the old version, your settings will be preserved.")
  44.          (default initialdir)
  45.       )
  46.    )
  47.  
  48.    (set chosendir wheredir)
  49.  
  50.    ;-------------------
  51.    ; Determine whether we are upgrading or installing new
  52.    (if (exists (tackon wheredir "game"))
  53.       (
  54.          ; Installing into an old ETW directory.
  55.          (set writeover 1)
  56. ;         (set wheredir (tackon wheredir "/"))
  57.          (message "The version of ETW in `" wheredir "' will be updated.  If this is correct, click `Proceed'.")
  58.       )
  59.       ;
  60.       (
  61.          (set writeover 0)
  62.          (message    "The patched executables will be placed in "
  63.             "a new drawer called `" drawername "' in '" wheredir 
  64.             "'.  If this is correct, click `Proceed'.")
  65.      (set wheredir (tackon wheredir "ETW"))
  66.      (makedir wheredir (infos))
  67.       )
  68.    )
  69.  
  70.    (set @default-dest wheredir)
  71.  
  72.    (askdisk
  73.       (prompt "Please insert " cd_name " in any drive.")
  74.       (help "")
  75.       (dest (substr cd_name 0 (- (strlen cd_name) 1)))
  76.       (assigns)
  77.    )
  78.  
  79.    (working "I'm patching 'etw'...")
  80.    (run ("spatch -o%s -petw.pch %s" (tackon wheredir "etw") (tackon cd_name "etw")))
  81.    (working "I'm patching 'game'...")
  82.    (run ("spatch -o%s -pgame.pch %s" (tackon wheredir "game") (tackon cd_name "game")))
  83.    (working "Installing new graphics...")
  84.    (run("copy newgfx %s all" (tackon wheredir "newgfx")))
  85.  
  86.    (if
  87.     (askbool (prompt "This new version of Eat The Whistle includes about 300 european club teams,"
  88.             "would you like to install them?")
  89.         (help "The installer will let you choose WHICH team set you want to install."
  90.             )
  91.     (choices "Yes" "No")
  92.     (default 1)
  93.     )
  94.     (
  95.        (working "Installing standard team files...")
  96.  
  97.        (makedir (tackon wheredir "teams"))
  98.        (copyfiles
  99.           (prompt "")
  100.           (help "")
  101.           (source (tackon cd_name "teams"))
  102.           (dest (tackon wheredir "teams"))
  103.           (choices "default" "arcade")
  104.        )
  105.  
  106.        (copyfiles
  107.           (prompt "Select the teams you want to install:")
  108.           (help "Each file contains the first division teams and often also second and third division ones!")
  109.           (source "teams/")
  110.           (dest (tackon wheredir "teams"))
  111.           (optional)
  112.           (choices  "Belgium97-98" "Croatia98-99" "England97-98" "Finland96-97" "France98-99" 
  113.             "Germany98-99" "Holland97-98" "Italy97-98" "Italy98-99"
  114.             "Portugal97-98" "Scotland97-98"  "Spain98-99" "Turkey97-98")
  115.           (confirm)
  116.        )
  117.     )
  118.    )
  119.  
  120.    (if
  121.     (
  122.        (working "Installing locale translations...")
  123.  
  124.        (makedir (tackon wheredir "catalogs"))
  125.  
  126.        (copyfiles
  127.           (prompt "Select the translations you want to install:")
  128.           (help "empty.ct and etw.cd can be used to create other translations.")
  129.           (source "catalogs/")
  130.           (dest (tackon wheredir "catalogs"))
  131.           (optional)
  132.           (choices "deutsch" "italiano" "türkçe" "empty.ct" "etw.cd")
  133.           (confirm)
  134.        )
  135.     )
  136.    )
  137.  
  138.    (if
  139.     (askbool (prompt "Do you want to install the ASCII manual?")
  140.         (help "Since the first copies of the ETW CD are wrongly shipped"
  141.             " without printed manual we provide it in ASCII format"
  142.             " with this patch.")
  143.     (choices "Yes" "No")
  144.     (default 1)
  145.     )
  146.     (
  147.        (copyfiles
  148.           (prompt "")
  149.           (help "")
  150.           (source "")
  151.           (dest wheredir)
  152.           (optional)
  153.           (infos)
  154.           (choices "EatTheWhistle.doc" "history.doc")
  155.           (confirm)
  156.        )
  157.     )
  158.    )
  159.  
  160.    (copyfiles
  161.       (prompt "")
  162.       (help "")
  163.       (source cd_name)
  164.       (dest wheredir)
  165.       (choices "ETW.info")
  166.    )
  167.  
  168.    (run ("copy %s %s" (tackon cd_name "developers.info") (tackon chosendir "ETW.info")))
  169.  
  170. ;   (copyfiles
  171. ;      (prompt "")
  172. ;      (help "")
  173. ;      (source diskname1)
  174. ;      (dest "RAM:")
  175. ;      (choices "lhex")
  176. ;   )
  177.  
  178.    (if
  179.     (askbool (prompt "Would you like to install the WHOLE game to Hard Disk? "
  180.         "(by default only the patched executables will be installed)")
  181.         (help "The WHOLE game will need about 20MB of free space in the "
  182.             "selected partition.")
  183.     (choices "Yes, full installation" "No, Only patches")
  184.     (default 0)
  185.     )
  186.    (
  187.    
  188.    (complete 0)
  189.  
  190.    (working "ETW: Copying system related files...")
  191.    (run("copy %s %s all" (tackon cd_name "catalogs/") (tackon wheredir "catalogs")))
  192.  
  193.    (copylib
  194.     (prompt "Installing lowlevel.library")
  195.     (help "ETW needs lowlevel.library for the input handling!\n")
  196.     (source (tackon cd_name "libs/lowlevel.library"))   
  197.     (dest "libs:")
  198.     (confirm)
  199.    )
  200.  
  201.    (complete 5)
  202.  
  203.    (if    (askbool (prompt "Would you like to install the game intros?") 
  204.         (help    "If you have not enough space on your HD you can choose to not install"
  205.             "the game intros, you can also delete it after the installation"
  206.             "removing the intro subdirectory from the ETW directory."
  207.             "The intros requires about 2MB of hard disk space.")
  208.         (choices "Yes" "No")
  209.         (default 1)
  210.          )
  211.     (
  212.        (working "ETW: Installing Intros...")
  213.        (run("copy %s %s all" (tackon cd_name "intro/") (tackon wheredir "intro")))
  214.     )
  215.     (
  216.        (run("copy %s %s" (cat cd_name "intro/~(#?.anim)") (tackon wheredir "intro")))
  217.     )
  218.    )
  219.  
  220.    (complete 10)
  221.  
  222.    (working "ETW: Installing menu graphics...")
  223.    (run("copy %s %s all" (tackon cd_name "menugfx/") (tackon wheredir "menugfx")))
  224.  
  225.    (complete 25)
  226.  
  227.    (working "ETW: Installing game graphics...")
  228.    (run("copy %s %s all" (tackon cd_name "gfx/") (tackon wheredir "gfx")))
  229.  
  230.    (complete 55)
  231.  
  232.    (working "ETW: Installing teams...")
  233.    (run("copy %s %s all" (tackon cd_name "teams/") (tackon wheredir "teams")))
  234.  
  235.    (complete 58)
  236.  
  237.    (working "ETW: Installing tactics...")
  238.    (run("copy %s %s all" (tackon cd_name "tct/") (tackon wheredir "tct")))
  239.  
  240.    (complete 60)
  241.    (working "ETW: Installing fonts...")
  242.    (run("copy %s %s all" (tackon cd_name "fonts/") (tackon wheredir "fonts")))
  243.  
  244.    (complete 62)
  245.  
  246.    (working "ETW: Installing sounds...")
  247.    (run("copy %s %s all" (tackon cd_name "snd/") (tackon wheredir "snd")))
  248.    (complete 65)
  249.    (run("copy %s %s all" (tackon cd_name "arcadesnd/") (tackon wheredir "arcadesnd")))
  250.    (complete 70)
  251.    (run("copy %s %s all" (tackon cd_name "crowd/") (tackon wheredir "crowd")))
  252.  
  253.    (complete 80)
  254.    (working "ETW: Installing spoken comment...")
  255.    (run("copy %s %s all" (tackon cd_name "talk/") (tackon wheredir "talk")))
  256.  
  257.    (makedir (tackon wheredir "saves"))
  258.    
  259.    (complete 90)
  260.    (working "ETW: Installing musics...")
  261.    (run("copy %s %s all" (tackon cd_name "music/") (tackon wheredir "music")))
  262.  
  263.    (complete 98)
  264.  
  265.    (if    (askbool
  266.         (prompt "Would you like to install the developer tools and documentation?")
  267.         (help    "This option let you install a directory with the ETW tactics editor, the team editor,"
  268.             "catalog descriptors, infos to create a custom spoken comment and more!")
  269.         (choices "Yes" "No")
  270.         (default 1)    
  271.     )
  272.     (
  273.        (working "ETW: Installing Developer Tools...")
  274.        (run("copy %s %s all" (tackon cd_name "developers/") (tackon wheredir "developers")))        
  275.     )
  276.    )
  277.         
  278.    (complete 100)
  279.  )
  280. )
  281. )
  282.  
  283. ;-----------------------------------------------------------------------
  284. ; Revision History:
  285. ;
  286. ; 21-11-98 First version
  287. ; 29-12-98 Updated for 1.2 version
  288.